###Leer los datos
com_data <- read_excel("./data/DemandForecast_Challenge (1).xlsx", sheet = "HistoricoVentas")
#pasar los headers a minusculas
colnames(com_data) <- tolower(colnames(com_data))
#########################################################################################################
# FEATURE ENGINEERING AND DATASETS
#########################################################################################################
# TIME DUMMIES
com_data_new <- com_data %>%
mutate(month = as.factor(month(com_data$mes)),
year = as.factor(year(com_data$mes)),
sku = as.factor(sku),
subagencia = as.factor(subagencia))
# drop original date
com_data_new$mes <- NULL
#save(com_data_new, file=paste0(root,"./data/data_baseline.Rda"))
La estructura de los datos es de la siguiente forma: